home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t6.d64 / paddle.proc < prev    next >
Text File  |  2007-02-28  |  350b  |  15 lines
  1. 9000 PROC PADDLE(P,REF X,REF Y,REF F1,REF F2) CLOSED
  2. 9010 CIA:=56320
  3. 9020 SID:=54272
  4. 9030 POKE CIA+13,1
  5. 9040 DDRA:=PEEK(CIA+2)
  6. 9050 POKE CIA+2,192
  7. 9060 POKE CIA,64*P
  8. 9070 X:=PEEK(SID+25); Y:=PEEK(SID+26)
  9. 9080 POKE CIA+2,DDRA
  10. 9090 POKE CIA+13,129
  11. 9100 M:=PEEK(CIA+2-PAIR)
  12. 9110 F1:=1-((M MOD 16) DIV 8)
  13. 9120 F2:=1-((M MOD 8) DIV 4)
  14. 9130 ENDPROC PADDLE
  15.